home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_VB / MLST43.ZIP;1 / SCROLL.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-04-17  |  3.0 KB  |  90 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   1740
  5.    ClientLeft      =   1392
  6.    ClientTop       =   1608
  7.    ClientWidth     =   6036
  8.    Height          =   2160
  9.    Left            =   1344
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1740
  12.    ScaleWidth      =   6036
  13.    Top             =   1236
  14.    Width           =   6132
  15.    Begin PictureBox Picture1 
  16.       BackColor       =   &H00C0C0C0&
  17.       Height          =   204
  18.       Left            =   96
  19.       ScaleHeight     =   180
  20.       ScaleWidth      =   5604
  21.       TabIndex        =   1
  22.       Top             =   96
  23.       Width           =   5628
  24.    End
  25.    Begin MListBox MList1 
  26.       Alignment       =   0  'None
  27.       AllowFocusRect  =   -1  'True
  28.       BorderStyle     =   0  'Normal
  29.       CheckColor      =   &H00000000&
  30.       CheckStyle      =   0  'Cross Style
  31.       DrawRegions     =   5
  32.       EnableVirtualMsgs=   0   'False
  33.       ExtendedSelect  =   0   'False
  34.       FallColor       =   &H00808080&
  35.       FindDirection   =   0  'Forward
  36.       GridColor       =   &H00000000&
  37.       GridStyle       =   0  'Solid
  38.       Height          =   1176
  39.       HiliteBackColor =   &H00000000&
  40.       HiliteForeColor =   &H00000000&
  41.       HorizontalGrids =   0   'False
  42.       ImageRegion     =   0
  43.       ImageType       =   0  'None
  44.       ItemHeight      =   195
  45.       ItemWidth       =   1560
  46.       Left            =   96
  47.       MaskingColor    =   &H00FFFFFF&
  48.       MultiColumn     =   0   'False
  49.       MultiSelect     =   0   'False
  50.       RiseColor       =   &H00FFFFFF&
  51.       SelectMode      =   0  'Normal
  52.       SortColumn      =   0
  53.       Sorted          =   0   'False
  54.       StringCompare   =   0  'Case Sensitive
  55.       TabIndex        =   0
  56.       Top             =   336
  57.       Version         =   "04.20"
  58.       VerticalGrids   =   0   'False
  59.       VirtualMsgZone  =   0
  60.       Width           =   5628
  61.    End
  62. Dim scrOffset As Long
  63. Const MM_TWIPS = 6
  64. Declare Function TextOut Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer
  65. Declare Function SetMapMode Lib "GDI" (ByVal hDC As Integer, ByVal nMapMode As Integer) As Integer
  66. Sub Form_Load ()
  67.   MList1.ItemLength(1) = 2000
  68.   MList1.ItemLength(2) = 2000
  69.   MList1.ItemLength(3) = 2000
  70.   MList1.ItemLength(4) = 2000
  71.   MList1.ItemLength(5) = 2000
  72.   MList1.SetHzScroll = 1
  73.   For I = 0 To 15
  74.     MList1.AddItem Str$(I) + Chr$(9) + "Value:" + Str$(I) + Chr$(9) + "Information " + Str$(I) + Chr$(9) + "Next To Last" + Chr$(9) + "Last"
  75.   Next I
  76. End Sub
  77. Sub MList1_ScrollMessage (Offset As Integer)
  78.   scrOffset = Offset
  79.   Debug.Print "Scroll offset:" + Str$(scrOffset)
  80.   Picture1.Refresh
  81. End Sub
  82. Sub Picture1_Paint ()
  83.   Dim retval As Integer, Y As Integer
  84.   Y = 0
  85.   For I = 1 To 5
  86.     retval = TextOut(Picture1.hDC, -scrOffset + Y, 0, "Column" + Str$(I), 8)
  87.     Y = Y + 165 + I Mod 2
  88.   Next I
  89. End Sub
  90.